Support macros in 'func-arity'

* src/eval.c (Ffunc_arity): Support Lisp macros as well.

diff --git a/src/eval.c b/src/eval.c
index e90b077bfb6ccfd948238766afb8e2b913d5dd43..72facd5db64c8452f1edba23074438291306b9a6 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -2960,6 +2960,9 @@ function with `&rest' args, or `unevalled' for a special form.  */)
        function = indirect_function (function);
     }
 
+  if (CONSP (function) && EQ (XCAR (function), Qmacro))
+    function = XCDR (function);
+
   if (SUBRP (function))
     result = Fsubr_arity (function);
   else if (COMPILEDP (function))